CSV-Export

Ein kleines VB-Script um ein Arbeitsblatt als CSV-Datei mit Hochkomma zu speichern.

Excel speichert CSV-Dateien nur, ohne die einzelnen Felder in Hochkommata einzuschließen. Dieses Skript von www.office-loesung.de macht das anders.

Excel-CSV

Hans,Müller,Weidenweg 12,12345,Hintertupfingen
Angela,Knuts,Wassergasse 8A,11122,Bin Schnellweg

CSV mit Hochkomma

"Hans","Müller","Weidenweg 12","12345","Hintertupfingen"
"Angela","Knuts","Wassergasse 8A","11122","Bin Schnellweg"

Skript

Sub SaveCSV() 

Dim Bereich As Object, Zeile As Object, Zelle As Object 
Dim strTemp As String 
Dim strDateiname As String 
Dim strTrennzeichen As String 
Dim strMappenpfad As String 

strMappenpfad = ActiveWorkbook.FullName 
strMappenpfad = Replace(strMappenpfad, ".xls", ".csv") 

strDateiname = InputBox("Wie soll die CSV-Datei heißen (c:test.csv)?", "CSV-Export", strMappenpfad) 
If strDateiname = "" Then Exit Sub 

strTrennzeichen = InputBox("Welches Trennzeichen soll verwendet werden?", "CSV-Export", ",") 
If strTrennzeichen = "" Then Exit Sub 

  Set Bereich = ActiveSheet.UsedRange 

  Open strDateiname For Output As #1 

  For Each Zeile In Bereich.Rows 
    For Each Zelle In Zeile.Cells 
      strTemp = strTemp & """" & CStr(Zelle.Text) & """" & strTrennzeichen 
    Next 
    If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1) 
    Print #1, strTemp 
    strTemp = "" 
  Next 

  Close #1 
  Set Bereich = Nothing 
  MsgBox "Export erfolgreich. Datei wurde exportiert nach" & vbCrLf & strDateiname 

End Sub

Hier der Link zum kompletten Thread: http://www.office-loesung.de/ftopic14862_0_0_asc.php

• Über
• Letzte Artikel

Enno Wulff

SAP Berater & Entwickler bei Inwerken AG

Moin Moin! Ich heiße Enno und bin der Erfinder, Redakteur und Trickser im Tricktresor. Die Artikel im Tricktresor sollen Euch das Leben einfacher machen und dienen mir als Gedächtnisstütze. Denn an vieles, was ich einmal heraus gefunden habe, kann ich mich später nicht mehr erinnern und suche erneut. Dagegen hilft der Tricktresor. Viel Spaß!

Letzte Artikel von Enno Wulff (Alle anzeigen)

• 7. December: Excel Racing Simulation – Root Vole Race - 7. Dezember 2024
• 5. December: ABAPConf - 5. Dezember 2024
• 4. December: Only a lazy developer is a good developer - 4. Dezember 2024